﻿Namespace Yurtdisi.SaglikMasraf
	Module Functions

		Function Oku(ByVal Token As Token, ByVal rowid As Integer) As Recordset
			Return Token.OpenSQL("select * from ssdmerkez.dbo.YDSaglikMasraf where rowid = @rowid", rowid)
		End Function

		Sub Sil(ByVal Token As Token, ByVal rowid As Integer)
			Token.ExecSQL("delete from ssdmerkez..YDSaglikMasraf where rowid = @rowid", rowid)
		End Sub

        Function TalepTarihiOku() As String
            Return ("q@Select distinct convert(char(10),TalepTarihi,112),convert(char(10),TalepTarihi,103) from SSDMERKEZ..YDSaglikMasraf where TalepTarihi is not NULL")
        End Function

	End Module
End Namespace
